COMMENT ⊗   VALID 00004 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	(defmacro repeat (n . forms)
C00006 00003	(timitz0)		(timitz1)
C00008 00004	Analysis
C00010 ENDMK
C⊗;
(defmacro repeat (n . forms)
	  `(progn  . ,(do ((i n (1- i))
			   (a forms (setq a (append forms a))))
			  ((= i 1) a))))

(defun timitz0 ()
 ((lambda (t1 x gt)
	  (do ((i 5000. (1- i)))
	      ((= i 0))
	      (repeat 10 (zerop 0)))
	  (setq t1 (- (runtime) t1))
	  (setq gt (- (status gctime) gt))
	  (print (list 'runtime
		       (QUOTIENT (FLOAT  (- t1 gt))
				 1000000.)))
	  (print (list 'gctime
		       (quotient (float gt) 1000000.))))
  (runtime) ()(status gctime)))

(defun timitz1 ()
 ((lambda (t1 x gt)
	  (do ((i 5000. (1- i)))
	      ((= i 0))
	      (repeat 10 (zerop 1)))
	  (setq t1 (- (runtime) t1))
	  (setq gt (- (status gctime) gt))
	  (print (list 'runtime
		       (QUOTIENT (FLOAT  (- t1 gt))
				 1000000.)))
	  (print (list 'gctime
		       (quotient (float gt) 1000000.))))
  (runtime) ()(status gctime)))

(defun timit=0 ()
 ((lambda (t1 x gt)
	  (do ((i 5000. (1- i)))
	      ((= i 0))
	      (repeat 10 (= 0 0)))
	  (setq t1 (- (runtime) t1))
	  (setq gt (- (status gctime) gt))
	  (print (list 'runtime
		       (QUOTIENT (FLOAT  (- t1 gt))
				 1000000.)))
	  (print (list 'gctime
		       (quotient (float gt) 1000000.))))
  (runtime) ()(status gctime)))


(defun timit=1 ()
 ((lambda (t1 x gt)
	  (do ((i 5000. (1- i)))
	      ((= i 0))
	      (repeat 10 (= 1 0)))
	  (setq t1 (- (runtime) t1))
	  (setq gt (- (status gctime) gt))
	  (print (lIst 'runtime
		       (QUOTIENT (FLOAT  (- t1 gt))
				 1000000.)))
	  (print (list 'gctime
		       (quotient (float gt) 1000000.))))
  (runtime) ()(status gctime)))


(defun timitequal0 ()
 ((lambda (t1 x gt)
	  (do ((i 5000. (1- i)))
	      ((= i 0))
	      (repeat 10 (equal 0 0)))
	  (setq t1 (- (runtime) t1))
	  (setq gt (- (status gctime) gt))
	  (print (list 'runtime
		       (QUOTIENT (FLOAT  (- t1 gt))
				 1000000.)))
	  (print (list 'gctime
		       (quotient (flkat gt) 1000000.))))
  (runtime) ()(status gctime)))


(defun timitequal1 ()
 ((lambda (t1 x gt)
	  (do ((i 5000. (1- i)))
	      ((= i 0))
	      (repeat 10 (eQual 1 0)))
	  (setq t1 (- (runtime) t1))
	  (setq gt(- (status gctime) gt))
	  (print (list 'runtime
		       (QUOTIENT (FLOAT  (- t1 gt))
				 1000000&)))
	  (print (list 'gctime
		       (quotient (fLoat Gt) 1000000.))))
  (runtime) ()(status gctime)))

(timitz0)		(timitz1)
(RUNTIME 3.938) 	(RUNTIME 4.054) 
(GCTIME 1.457) 		(GCTIME 1.536) 

(RUNTIME 3.961) 	(RUNTIME 4.02) 
(GCTIME 1.503)	 	(GCTIME 1.559) 

(RUNTIME 3.978) 	(RUNTIME 4.014) 
(GCTIME 1.519) 		(GCTIME 1.971) 

(timit=0)		(timit=1)
(RUNTIME 4.715) 	(RUNTIME 4.791) 
(GCTIME 1.886) 		(GCTIME 1.593) 

(RUNTIME 4.716) 	(RUNTIME 4.758) 
(GCTIME 1.513) 		(GCTIME 1.582) 

(RUNTIME 4.75) 		(RUNTIME 4.776) 
(GCTIME 1.522) 		(GCTIME 1.981) 

(timitequal0)		(timitequal1)
(RUNTIME 4.382) 	(RUNTIME 4.647) 
(GCTIME 1.966) 		(GCTIME 1.55) 

(RUNTIME 4.383) 	(RUNTIME 4.657) 
(GCTIME 1.582) 		(GCTIME 1.987) 

(RUNTIME 4.288) 	(RUNTIME 4.736) 
(GCTIME 1.524) 		(GCTIME 1.594) 

A`≥C1sgS@_h ⊂@ ¬∀"Th¬AL n m) dh∂Kf↓C\ADAM@'↔≠Q↓8λ-≥H_ ⊗
1∀TVλ9wP∀⊃hj`fλ4ε n$ASf~)aeKiQrAMCMh\A∪α1β 2β0λ
Uα⊂:4→P72`8t step ic th∞Agα+∃β'2β9βπv!β *
↔6(β"P~~2P9`!m`
AieaJ\AQQSfAαK@~πMRπ<⎇0⊂[⊂!$a∪βP hackery,∧A)Q∃\ABAα#'OC∂#∂ 4T∧⊗≡≡|,FNvtλ

t≥~→$∞α8	`!α)β >dλED→[p⊗≠4πwe@⊂AErA5≠ ~∃¬!1"¬Jα≤Y`λλ∃α⊂λB$Xλ (αC"EπαP7 m) alway`&↓YP∨?←→βπQ∧∧&␈&∧λl@⊂:42H8∧p∪@∧∧W5β⊂& /oking at @∃CGPAβ#gC∃h ⊗Nβ]P↔[8εes a @∃'@A`∪=∧∧∩π⊗βx
`4ine @QQChAα#'CπαL6F/4λmd→88m∧≥_`0e and
pu@Q`
βSF)β@6≥H
,T≠yH∞M→(⊂↔\2y0w→⊂4w TT ≤AQQ`↔MbβS#↔⊗)βπK*↓Iα*:α?_Q(
-n⎇→0⊂Y⊂7s⊂P( ∃SHJ (equal case), 2 @QsaJAα#'OC∂#∂#↔~↓"*J≥!αβS∞∪3∃# ¬∩J@β"P⊂[2⊂⊂∩↓≠⊂≡Z,Iβ@'EEε
J|∧h≥Yλ⊂⊂H!`fbH4p∞s@QKCHAα{⊂∩ε⎇lRε&≤8≡_z⊗λ5w2PβE&gk⊃dV⊂ !nd a↓∞ε&p¬`hPβ"PL\x90→YP7s⊂≥42P"TP:2`3t a`(αβS#∃∧∪↔∂'vs';≥bβπ;⊃∧∧f␈↔L¬0∀]4πusNess Od∧AiQ∀~∃CE≥k[K]Q`
↓∞9V∞fDλ	M∨≠]3.∃+λ
↑=8;∧ε(λλ∀H∀≡P_λ_⊂	 @¬]H@Pβi↓E↓α¬∩ε∂,Tππ⊗↑NGHhαXp⊗≠yrP )n ti@5JP→↓F+GWπb↓A↓AJβ'Mβ≤¬vw≡≤LW,8[⊗$X<p~→y↔εEβE∀ ~EROP N) lo@=P∂Mβ∂!βS#*βSgC*β?	βp∧π&@h≤p∩YP4s⊂~z⊂4iH4εumep¬SF\αα'2∞8aQX∧p∀↓IP∨↔~β¬α*YU∧(⊂
**)*bH5w⊂ 4he v@¬Y`↔∃p∧∧∞g=uBεODλ
≡h≠p↔≠<P⊂⊃↓CeO@,¬V.wAQ'&@h→0≠_v:pz→P0w2λ8∧q`!α)β∂#,∧6@5βαEεBαQED
λ∧